src/bytecode.c (exec_byte_code) Unroll Blist3 and Blist4

* src/bytecode.c (exec_byte_code): Unroll Blist3 and Blist4
(bug#35321).

diff --git a/src/bytecode.c b/src/bytecode.c
index 6f601cf0cd57186d1a7b688a2d68ee1c18cf6083..29dff44f007d26788c4d66d2fb4f707dcf39e706 100644 (file)
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -884,12 +884,12 @@ exec_byte_code (Lisp_Object bytestr, Lisp_Object vector, Lisp_Object maxdepth,
 
        CASE (Blist3):
          DISCARD (2);
-         TOP = Flist (3, &TOP);
+         TOP = list3 (TOP, top[1], top[2]);
          NEXT;
 
        CASE (Blist4):
          DISCARD (3);
-         TOP = Flist (4, &TOP);
+         TOP = list4 (TOP, top[1], top[2], top[3]);
          NEXT;
 
        CASE (BlistN):